home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / keyboard.swg / 0053_Check for *ANY* Key.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  678 b   |  17 lines
  1. {*****************************************************************************
  2.  * Function ...... IsKeyPressed
  3.  * Purpose ....... To determine if *ANY* key is pressed on the keyboard
  4.  * Parameters .... None
  5.  * Returns ....... TRUE if a key is being pressed
  6.  * Notes ......... Even returns TRUE if a shift/ctrl/alt/caps lock key is 
  7.  *                 pressed.
  8.  * Author ........ Martin Richardson
  9.  * Date .......... May 13, 1992
  10.  *****************************************************************************}
  11. FUNCTION IsKeyPressed: BOOLEAN;
  12. BEGIN
  13.      IsKeyPressed := ((MEM[$40:$17] AND $0F) > 0) OR (MEM[$40:$18] > 0)
  14.                      OR KEYPRESSED;
  15. END;
  16.  
  17.